VSTVARS 7

VSTVAR 0,.25,"VOLUME","",0,1,1
VSTVAR 1, 2,"x","",0,2,2
VSTVAR 2, .97, "ROOMSIZE", "", .8, .9999, 0
VSTVAR 3, 50, "Dry/Wet", "%", 0, 100, 1
VSTVAR 5,0,"SRC CH","",0,15,2
VSTVAR 6,0,"DST CH","",0,15,2

TOOLTIP "Main Volume", 0
TOOLTIP "Sequencer Knob ( 音序器旋钮 )", 1
TOOLTIP "Reverb feedback", 2
TOOLTIP "Reverb Dry/Wet", 3
TOOLTIP "Current temperament", 4
TOOLTIP "MIDISWAP source channel:\nThis channel will be swapped with the destination channel.\nUse those knobs to record the wanted channel in the sequencer, in case your keyboard do not allow channel choosing.\n\nWait the 5 second countdown.\n\nNOTE: change only before start merging!", 5
TOOLTIP "MIDISWAP destination channel:\nThis channel will be swapped with the source channel.\nUse those knobs to record the wanted channel in the sequencer, in case your keyboard do not allow channel choosing.\n\nWait the 5 second countdown.\n\nNOTE: change only before start merging!", 6

MIDISWAP $605,$606

INTERFACE 1000, 200
TEMPERAMENTCC 604

UIMOD 0,30,0,2,5

UIMOD 400,50,90,70,0,3,20,30,130,30,255,255,255,190,90,190
UIMOD 401,200,90,70,3.5,0,0,130,30,30,150,150,0,0,80,0
UIMOD 402,350,110,30,0,0,50,-1,-1,-1,255,0,0
UIMOD 403,490,110,30,0,2,1
UIMOD 404,630,110,30,0,1,0
UIMOD 405,760,110,30,0,1,0
UIMOD 406,860,110,30,0,1,0
UIMOD 709,0,136,255
UIMOD 712,0,136,255
UIMOD 711,0,0,170 
UIMOD 2,360,20,48,900,255,255,255

HIDEUI 4

GAINENV &600,0,.1,0,0,1,.1

SEQUENCERI "ACTIVATE 601, 10000",0,15
//Sequenceri "   loadtape0 test.tap"
//SEQUENCERI "loadtape *;reset;loadtape *TEST TEST;reset;STATUS 3;",0,15
//SEQUENCERI "STATUS 0;",0,15
sequenceri "   countdown 5   "
//sequencer " reset"
//sequencer " prob  . 4  ; move -10,-10 "
//sequencer "     if & 600 < = . 5 ; DEBUG VOLUME <= 0.5..."
seed -2
SEQUENCERI "MOVE 0,0;ADD 0,60,1/32;ADD 1/4,64,1/32;ADD 2/4,67,1/32;ADD 3/4,71,1/32;",0,0
//choke 0
sequencer "RESET;"

//sequencer "   countdown 34342   "
//SEQUENCERi "   ACTIVATE -601 ",0,15

//SEQCHANNEL 0,0,15
//SEQUENCER 601,"PROB 1000;reset;Test3"
//SEQUENCER 601,"MOVE 2,2;"
//SEQUENCER 601,"APPEND 2,2,2,2"
//SEQUENCER 601,"IF &607 > .5;APPEND 2,2,2,2"
//SEQUENCER 601,""
//SEQUENCER 601,"ADD 0,60,1/32;ADD 1,61,1/32;ADD 2,62,1/32;ADD 3,63,1/32;MOD 1,2,1/3,1/4,1/5,1/6,7,8,9,10,11,12"
//SEQUENCER 601,"MOVE 2,2;Prob 10;MOD 0,2,0,0,-.1,.1,-1,1,-10,10;QUANTIZE 0,2,32,8,1"
//SEQUENCER 601,"ADD 0,48,1/32;MOVE 4000,4000;A2C 0,2;EXIT 5;"
//SEQUENCER 601,"MOVE 4000,4000;xFREEZE 0,0,2,2,32,.95;xEXIT 0;"



POST
IF MCC(603)<.1 EXIT
OUT=.01*((100-MCC(603))*OUT+REVERB0(OUT,MCC(602))*MCC(603))


LAYER
OUT=OSCG("sg")

DEBUG 0,250,50
